home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / EXSIZE1.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  5.3 KB  |  308 lines

  1. :exsize1.scr
  2.  
  3. if memory 1 ! 8 goto exit
  4. goto start_lesson
  5.  
  6. :repeat_lesson
  7. bkey r
  8. bkey ' 
  9.  
  10. :start_lesson
  11. clear 15
  12.  
  13. cursor 22 19
  14. print 'Press any key to start lesson 10.
  15. wait -
  16. clear 19 19
  17.  
  18. clear 15
  19. cursor 2 16
  20. print 'Now we will start with some exercises. This time you won't have all the time
  21. cursor 0 17
  22. print 'in the world to press the right key. I will adjust the speed to roughly how
  23. cursor 0 18
  24. print 'well you have been doing so far.
  25.  
  26. cursor 2 20
  27. print 'Again the pass rate will be 90% accuracy.
  28.  
  29. pass 90
  30. if auto ! 0 auto
  31. script - stspeed
  32.  
  33. script - waitspc
  34. start 2
  35.  
  36. :again
  37. start 3
  38.  
  39. clear 15
  40. cursor 9 16
  41. print 'Perhaps the only suprise about Microsoft's Basic 
  42. cursor 9 20
  43. print 'strategy 'is that a key ingredient, Visual Basic itself, 
  44.  
  45. cursor 9 16
  46. test -
  47. scroll 4 15 22
  48. cursor 9 20
  49. print 'is a lot more than vapourware, 'Wrote Jeff Tarter in his 
  50. cursor 9 16
  51. test -
  52.  
  53. scroll 4 15 22
  54. cursor 9 20
  55. print 'June 91 Soft letter.
  56. enter
  57. cursor 9 16
  58. test -
  59.  
  60. scroll 4 15 22
  61. cursor 9 20
  62. print 'Already people are starting to send me Windows 
  63. cursor 9 16
  64. test -
  65.  
  66. scroll 4 15 22
  67. cursor 9 20
  68. print 'applications for review which didn't exist a mere six 
  69. cursor 9 16
  70. test -
  71.  
  72. scroll 4 15 22
  73. cursor 9 20
  74. print 'months ago. With few exceptions, these are written in 
  75. cursor 9 16
  76. test -
  77.  
  78. scroll 4 15 22
  79. cursor 9 20
  80. print 'Visual Basic. So perhaps none of them is going to be a 
  81. cursor 9 16
  82. test -
  83.  
  84. scroll 4 15 22
  85. cursor 9 20
  86. print 'commercial success on the scale of Excel or WordStar - 
  87. cursor 9 16
  88. test -
  89.  
  90. scroll 4 15 22
  91. cursor 9 20
  92. print 'so what? There are going to be thousands of them 
  93. cursor 9 16
  94. test -
  95.  
  96. scroll 4 15 22
  97. cursor 9 20
  98. print 'available inside two years.
  99. enter
  100. cursor 9 16
  101. test -
  102.  
  103. scroll 4 15 22
  104. cursor 9 20
  105. print 'A new skill is going to have to evolve: the self 
  106. cursor 9 16
  107. test -
  108.  
  109. scroll 4 15 22
  110. cursor 9 20
  111. print 'advertisement. These programs will have to explain what 
  112. cursor 9 16
  113. test -
  114.  
  115. scroll 4 15 22
  116. cursor 9 20
  117. print 'they do, and why you need one. This doesn't mean a brief 
  118. cursor 9 16
  119. test -
  120.  
  121. scroll 4 15 22
  122. cursor 9 20
  123. print 'summary along the lines of: 'Entrance: a utility for DOS 
  124. cursor 9 16
  125. test -
  126.  
  127. scroll 4 15 22
  128. cursor 9 20
  129. print 'conversion to Windows of screen blanking override code.' 
  130. cursor 9 16
  131. test -
  132.  
  133. scroll 4 15 22
  134. cursor 9 20
  135. print 'Software is going to have to sell itself the way 
  136. cursor 9 16
  137. test -
  138.  
  139. scroll 4 15 22
  140. cursor 9 20
  141. print 'detergents get sold on TV - a compelling introduction, a 
  142. cursor 9 16
  143. test -
  144.  
  145. scroll 4 15 22
  146. cursor 9 20
  147. print 'clear explanation of a problem, and a powerful and 
  148. cursor 9 16
  149. test -
  150.  
  151. scroll 4 15 22
  152. cursor 9 20
  153. print 'convincing demonstration of how this is solved.
  154. enter
  155. cursor 9 16
  156. test -
  157.  
  158. scroll 4 15 22
  159. cursor 9 20
  160. print 'Visual Basic hasn't recieved quite the ecstatic 
  161. cursor 9 16
  162. test -
  163.  
  164. scroll 4 15 22
  165. cursor 9 20
  166. print 'reception it deserved from observers - and I suspect 
  167. cursor 9 16
  168. test -
  169.  
  170. scroll 4 15 22
  171. cursor 9 20
  172. print 'that this is because they don't know how powerful Basic 
  173. cursor 9 16
  174. test -
  175.  
  176. scroll 4 15 22
  177. cursor 9 20
  178. print 'is.
  179. enter
  180. cursor 9 16
  181. test -
  182.  
  183. scroll 4 15 22
  184. cursor 9 20
  185. print 'Many professional programmers write in C or C++ these 
  186. cursor 9 16
  187. test -
  188.  
  189. scroll 4 15 22
  190. cursor 9 20
  191. print 'days; they are trained in Pascal, and regard Basic as 
  192. cursor 9 16
  193. test -
  194.  
  195. scroll 4 15 22
  196. cursor 9 20
  197. print 'Mickey-Mouse was and is.
  198. enter
  199. cursor 9 16
  200. test -
  201.  
  202. scroll 4 15 22
  203. cursor 9 20
  204. print 'The best-known accounting package in the UK, Pegasus, 
  205. cursor 9 16
  206. test -
  207.  
  208. scroll 4 15 22
  209. cursor 9 20
  210. print 'was written entirely in Basic. Pertmaster, for years the 
  211. cursor 9 16
  212. test -
  213.  
  214. scroll 4 15 22
  215. cursor 9 20
  216. print 'best project planning package, was written in Microsoft 
  217. cursor 9 16
  218. test -
  219.  
  220. scroll 4 15 22
  221. cursor 9 20
  222. print 'Basic for a CP/M micro. If we start a list here, it will 
  223. cursor 9 16
  224. test -
  225.  
  226. scroll 4 15 22
  227. cursor 9 20
  228. print 'go on for pages. All are powerful, well-crafted and 
  229. cursor 9 16
  230. test -
  231.  
  232. scroll 4 15 22
  233. cursor 9 20
  234. print 'succesfull packages, and couldn't have been written in C 
  235. cursor 9 16
  236. test -
  237.  
  238. scroll 4 15 22
  239. cursor 9 20
  240. print 'because the authors didn't know C.
  241. enter
  242. cursor 9 16
  243. test -
  244.  
  245. scroll 4 15 22
  246. cursor 9 20
  247. print 'So it is worth reminding yourself, when you pour scorn 
  248. cursor 9 16
  249. test -
  250.  
  251. scroll 4 15 22
  252. cursor 9 20
  253. print 'on the idea of real software written in Basic, that it 
  254. cursor 9 16
  255. test -
  256.  
  257. scroll 4 15 22
  258. cursor 9 20
  259. print 'had already been done on a large scale. And then, count 
  260. cursor 9 16
  261. test -
  262.  
  263. scroll 4 15 22
  264. cursor 9 20
  265. print 'the number of experienced Basic programmers who are 
  266. cursor 9 16
  267. test -
  268.  
  269. scroll 4 15 22
  270. cursor 9 20
  271. print 'suddenly freed to produce Windows applications. 
  272. cursor 9 16
  273. test -
  274.  
  275. scroll 4 15 22
  276. cursor 9 20
  277. print 'Microsoft puts the figure in the millions - over two 
  278. cursor 9 16
  279. test -
  280.  
  281. scroll 4 15 22
  282. cursor 9 20
  283. print 'million at least.
  284. enter
  285. cursor 9 16
  286. test -
  287.  
  288. cursor 9 20
  289. test -
  290.  
  291. script - sofar
  292. if accuracy 3 < 90 goto again
  293. if key = R goto repeat_lesson
  294. if key = r goto repeat_lesson
  295.  
  296. memory 1 = 9
  297.  
  298. clear
  299. cursor 51 7
  300. print '10
  301. script save
  302.  
  303. if key ! C if key ! c goto exit
  304. clear
  305. keyboard
  306.  
  307. :exit
  308.